home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00036_Script_qtvr-Planes < prev    next >
Text File  |  1999-04-25  |  2KB  |  86 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13. -------*This script is not used in this version of the movie*----------
  14.  
  15. property mySprite, neutral, roller, hilite, sameSelect
  16.  
  17. on new me
  18.   set mySprite = the spriteNum of me
  19.   set neutral = the castNum of sprite mySprite
  20.   set roller = neutral + 1
  21.   set hilite = roller + 1
  22.   set sameSelect = hilite + 1
  23.   set the ink of sprite mySprite to 0
  24.   return me
  25. end
  26.  
  27.  
  28. on mouseEnter me
  29.   global gPlane,gPImage 
  30.   set the castnum of sprite mySprite to  roller
  31.   updatestage 
  32. end
  33.  
  34.  
  35.  
  36. on mouseleave me
  37.   global gPlane,gPImage
  38.   
  39.   set the castnum of sprite mySprite to  neutral
  40.   
  41.   set lastMenuItemSprNum = getSpriteNumFromMemberName ("anchor")+1
  42.   set maxLocV = the bottom of sprite lastMenuItemSprNum
  43.   
  44.   if gPlane <> mySprite  and ¼
  45. (the mouseh<=598 or the mouseh >= 762 or the mousev <=84 ¼
  46. or the mousev >= maxLocV) then
  47.     set the castnum of sprite gPlane to gPImage+2
  48.     set the ink of sprite gPlane to 0
  49.   end if
  50.   
  51.   updateStage
  52.   
  53. end
  54.  
  55. on mouseup me
  56.   global gPlane,gPImage
  57.   --back to QTVR button
  58.   
  59.   set the visible of sprite 22 to false
  60.   puppetSprite 22, false
  61.   updatestage
  62.   
  63.   set gPlane = mySprite
  64.   set gPImage = neutral
  65.   
  66.   set the castnum of sprite mySprite to  hilite
  67.   
  68.   sound stop(1)
  69.   sound stop(2)
  70.   
  71.   set startSprNum = getSpriteNumFromMemberName ("anchor")+1
  72.   set range = getNumOfSprInCluster("anchor")-1
  73.   set mySprNum = the spritenum of me
  74.   
  75.   repeat with spriteNum = startSprNum to startSprNum+range
  76.     if spriteNum = mySprNum then
  77.       set soundNum = range-(spriteNum-startSprNum)+1
  78.       puppetSound 3,"tunfork"&soundNum
  79.       pass
  80.       exit
  81.     end if
  82.   end repeat
  83.   
  84. end
  85.  
  86.